home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / GetFileXFCN.cpt / TestXFCN / background_2716.txt < prev    next >
Text File  |  1989-02-26  |  5KB  |  196 lines
  1. -- background: 2716 from stack: in
  2. -- bmap block id: 2166
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=396 top=42 right=64 bottom=496
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Do it
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get FileName()
  23.   -- name of a file the user picks goes into "it"
  24.   put "You chose‚Ķ" & return into bkgnd field 1
  25.   if it is not empty then
  26.     put it after bkgnd field 1
  27.   else
  28.     -- we return a null string if user hits Cancel
  29.     put "to click the Cancel button" after bkgnd field 1
  30.   end if
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 2 (field)
  36. -- low flags: 00
  37. -- high flags: 0004
  38. -- rect: left=30 top=35 right=199 bottom=355
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 9
  44. -- style flags: 0
  45. -- line height: 12
  46. -- part name: 
  47.  
  48.  
  49. -- part 5 (button)
  50. -- low flags: 00
  51. -- high flags: 2000
  52. -- rect: left=394 top=314 right=332 bottom=423
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 20689 / 20689
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Home
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   visual effect iris close
  64.   go home
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 10 (button)
  70. -- low flags: 00
  71. -- high flags: A000
  72. -- rect: left=396 top=66 right=113 bottom=496
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 4895 / 4895
  75. -- text alignment: 1
  76. -- font id: 3
  77. -- text size: 9
  78. -- style flags: 0
  79. -- line height: 12
  80. -- part name: Look at this script
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   set the highlight of bkgnd button "do it" to true
  84.   waitasec
  85.   set the highlight of bkgnd button "do it" to false
  86.   play "Boing" c5e
  87.   put the script of bkgnd button "do it" into bkgnd field 1
  88.   wait until the sound is "done"
  89.   set the highlight of bkgnd button "do it" to true
  90.   waitasec
  91.   set the highlight of bkgnd button "do it" to false
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 12 (button)
  97. -- low flags: 00
  98. -- high flags: A004
  99. -- rect: left=396 top=139 right=161 bottom=496
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Read a file
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   put FileName("TEXT") into theFile
  111.   if theFile is not empty then
  112.     open file theFile
  113.     read from file theFile for 1000
  114.     put it into bkgnd field 1
  115.     close file theFile
  116.   end if
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 13 (button)
  122. -- low flags: 00
  123. -- high flags: A004
  124. -- rect: left=396 top=229 right=251 bottom=496
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Launch…
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   global theFile
  136.   put FileName("APPL") into theFile
  137.   if theFile is not empty then
  138.     open theFile
  139.   end if
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 15 (button)
  145. -- low flags: 00
  146. -- high flags: A000
  147. -- rect: left=396 top=163 right=210 bottom=496
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 4895 / 4895
  150. -- text alignment: 1
  151. -- font id: 3
  152. -- text size: 9
  153. -- style flags: 0
  154. -- line height: 12
  155. -- part name: Look at this script
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   set the highlight of bkgnd button "read a file" to true
  159.   waitasec
  160.   set the highlight of bkgnd button "read a file" to false
  161.   play "Boing" c5e
  162.   put the script of bkgnd button "read a file" into bkgnd field 1
  163.   wait until the sound is "done"
  164.   set the highlight of bkgnd button "read a file" to true
  165.   waitasec
  166.   set the highlight of bkgnd button "read a file" to false
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 16 (button)
  172. -- low flags: 00
  173. -- high flags: A000
  174. -- rect: left=396 top=253 right=300 bottom=496
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 4895 / 4895
  177. -- text alignment: 1
  178. -- font id: 3
  179. -- text size: 9
  180. -- style flags: 0
  181. -- line height: 12
  182. -- part name: Look at this script
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   set the highlight of bkgnd button "launch‚Ķ" to true
  186.   waitasec
  187.   set the highlight of bkgnd button "launch‚Ķ" to false
  188.   play "Boing" c5e
  189.   put the script of bkgnd button "launch‚Ķ" into bkgnd field 1
  190.   wait until the sound is "done"
  191.   set the highlight of bkgnd button "launch‚Ķ" to true
  192.   waitasec
  193.   set the highlight of bkgnd button "launch‚Ķ" to false
  194. end mouseUp
  195.  
  196.